SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDFINA_PAGO_U01]
/*--------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                	--*/  
/*---Cliente              : OFISIS                 		--*/  
/*---Sistema              : Tesoreria                  	--*/  
/*---M÷dulo               : Empresa                    	--*/  
/*---Programa             : Grabaci÷n Detalle          	--*/  
/*---                       Movimiento (Pagos)			--*/  
/*---Script               : tcmovi_b.sql               	--*/  
/*---Nombre SP            : SP_TDFINA_PAGO_U01         	--*/  
/*---Desarrollado por     : Carlos Maqruez Escobar    	--*/  
/*---Fecha Creaci÷n       : 10/02/2006                 	--*/  
/*---Base Datos           : Microsoft Sql Server       	--*/  
/*---Versi÷n              : 8.0                        	--*/  
/*---Invoca a SP          :                            	--*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     :  							--*/  
/*---Fecha Modificaci÷n   :                             --*/   
/*---Detalle Modificaci÷n :                             --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TDFINA_PAGO_U01                      --*/  
/*---Grant Execute on SP_TDFINA_PAGO_U01 to public     --*/   
/*---SP_TDFINA_PAGO_AUXI_I01                           --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR			TD_VC_002,
 @ISCO_USUA_MODI	TD_VC_008_USUA,
 @ISCO_BANC			TD_VC_003,
 @ISCO_TIPO_FINA	TD_VC_020,
 @ISNU_COMP_FINA	TD_VC_008,

 @INNU_SECU   		TD_IN_001, 
 @ISNU_CNTA_BANC	TD_VC_020,
 @ISAA_BNCO			TD_VC_004,
 @ISMM_BNCO			TD_VC_002,
 @ISTI_MOVI_BANC	TD_VC_001,
 @ISNU_COMP_BANC	TD_VC_008,
 @IDFE_OPER			TD_DT_001,
 @INIM_MOVI_CARG	TD_NU_016_004,
 @INIM_MOVI_PAGO	TD_NU_016_004,
 @ISST_SITU_PAGO	TD_VC_001
  
 as  
   Declare  
	@VNNU_SECU TD_IN_001  
  
 Begin Tran SP_TDFINA_PAGO_U01


		Update TDFINA_PAGO
		Set NU_CNTA_BANC = @ISNU_CNTA_BANC,
			AA_BNCO = @ISAA_BNCO,  
			MM_BNCO = @ISMM_BNCO,  
			TI_MOVI_BANC = @ISTI_MOVI_BANC,  
			NU_COMP_BANC = @ISNU_COMP_BANC,  
			FE_OPER = @IDFE_OPER,  
			IM_MOVI_CARG = @INIM_MOVI_CARG,  
			IM_MOVI_PAGO = @INIM_MOVI_PAGO,  
			CO_USUA_MODI = @ISCO_USUA_MODI, FE_USUA_MODI = GetDate()
		Where CO_EMPR = @ISCO_EMPR 
		and    CO_BANC = @ISCO_BANC 
		and    CO_TIPO_FINA = @ISCO_TIPO_FINA 
		and    NU_COMP_FINA = @ISNU_COMP_FINA 
		and    NU_SECU = @INNU_SECU 

	If @@error <> 0  
	Begin  
		Rollback tran  SP_TDFINA_PAGO_U01
		Return  
	End  
	
	If @ISST_SITU_PAGO = 'S'
		Update TCFINA_BANC
			Set TI_SITU = 'PAG', CO_USUA_MODI = @ISCO_USUA_MODI, FE_USUA_MODI = GetDate()
		Where CO_EMPR = @ISCO_EMPR 
		and    CO_BANC = @ISCO_BANC 
		and    CO_TIPO_FINA = @ISCO_TIPO_FINA 
		and    NU_COMP_FINA = @ISNU_COMP_FINA 

	If @@error <> 0  
	Begin  
		Rollback tran  SP_TDFINA_PAGO_U01
		Return  
	End  

  
Commit Tran SP_TDFINA_PAGO_U01
  
RETURN  
/*------------------------ Fin ------------------------------*/


GO
